/ Mac Power 1997 January / macpower199701.bin / AMUG / Publishing_19 / Alpha 6.5.sit / Tcl / SystemCode / library.tcl

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 6c 69 62 72 61 72 | 79 2e 74 63 6c 00 00 00 |..librar|y.tcl...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 00 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 14 5b 00 | 00 02 0e ae 38 ff db ae |......[.|....8...|
|00000060| 38 ff db 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |8.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 f9 89 00 00 |........|........|
|00000080| 23 20 69 6e 69 74 2e 74 | 63 6c 20 2d 2d 0d 23 0d |# init.t|cl --.#.|
|00000090| 23 20 44 65 66 61 75 6c | 74 20 73 79 73 74 65 6d |# Defaul|t system|
|000000a0| 20 73 74 61 72 74 75 70 | 20 66 69 6c 65 20 66 6f | startup| file fo|
|000000b0| 72 20 54 63 6c 2d 62 61 | 73 65 64 20 61 70 70 6c |r Tcl-ba|sed appl|
|000000c0| 69 63 61 74 69 6f 6e 73 | 2e 20 20 44 65 66 69 6e |ications|.  Defin|
|000000d0| 65 73 0d 23 20 22 75 6e | 6b 6e 6f 77 6e 22 20 70 |es.# "un|known" p|
|000000e0| 72 6f 63 65 64 75 72 65 | 20 61 6e 64 20 61 75 74 |rocedure| and aut|
|000000f0| 6f 2d 6c 6f 61 64 20 66 | 61 63 69 6c 69 74 69 65 |o-load f|acilitie|
|00000100| 73 2e 0d 23 0d 23 20 24 | 48 65 61 64 65 72 3a 20 |s..#.# $|Header: |
|00000110| 2f 72 65 6c 2f 63 76 73 | 66 69 6c 65 73 2f 64 65 |/rel/cvs|files/de|
|00000120| 76 6f 2f 74 63 6c 2f 6c | 69 62 72 61 72 79 2f 69 |vo/tcl/l|ibrary/i|
|00000130| 6e 69 74 2e 74 63 6c 2c | 76 20 31 2e 32 20 31 39 |nit.tcl,|v 1.2 19|
|00000140| 39 32 2f 31 32 2f 32 33 | 20 31 35 3a 33 39 3a 32 |92/12/23| 15:39:2|
|00000150| 39 20 7a 6f 6f 20 45 78 | 70 20 24 20 53 50 52 49 |9 zoo Ex|p $ SPRI|
|00000160| 54 45 20 28 42 65 72 6b | 65 6c 65 79 29 0d 23 0d |TE (Berk|eley).#.|
|00000170| 23 20 43 6f 70 79 72 69 | 67 68 74 20 31 39 39 31 |# Copyri|ght 1991|
|00000180| 2d 31 39 39 32 20 52 65 | 67 65 6e 74 73 20 6f 66 |-1992 Re|gents of|
|00000190| 20 74 68 65 20 55 6e 69 | 76 65 72 73 69 74 79 20 | the Uni|versity |
|000001a0| 6f 66 20 43 61 6c 69 66 | 6f 72 6e 69 61 0d 23 20 |of Calif|ornia.# |
|000001b0| 50 65 72 6d 69 73 73 69 | 6f 6e 20 74 6f 20 75 73 |Permissi|on to us|
|000001c0| 65 2c 20 63 6f 70 79 2c | 20 6d 6f 64 69 66 79 2c |e, copy,| modify,|
|000001d0| 20 61 6e 64 20 64 69 73 | 74 72 69 62 75 74 65 20 | and dis|tribute |
|000001e0| 74 68 69 73 0d 23 20 73 | 6f 66 74 77 61 72 65 20 |this.# s|oftware |
|000001f0| 61 6e 64 20 69 74 73 20 | 64 6f 63 75 6d 65 6e 74 |and its |document|
|00000200| 61 74 69 6f 6e 20 66 6f | 72 20 61 6e 79 20 70 75 |ation fo|r any pu|
|00000210| 72 70 6f 73 65 20 61 6e | 64 20 77 69 74 68 6f 75 |rpose an|d withou|
|00000220| 74 0d 23 20 66 65 65 20 | 69 73 20 68 65 72 65 62 |t.# fee |is hereb|
|00000230| 79 20 67 72 61 6e 74 65 | 64 2c 20 70 72 6f 76 69 |y grante|d, provi|
|00000240| 64 65 64 20 74 68 61 74 | 20 74 68 69 73 20 63 6f |ded that| this co|
|00000250| 70 79 72 69 67 68 74 0d | 23 20 6e 6f 74 69 63 65 |pyright.|# notice|
|00000260| 20 61 70 70 65 61 72 73 | 20 69 6e 20 61 6c 6c 20 | appears| in all |
|00000270| 63 6f 70 69 65 73 2e 20 | 20 54 68 65 20 55 6e 69 |copies. | The Uni|
|00000280| 76 65 72 73 69 74 79 20 | 6f 66 20 43 61 6c 69 66 |versity |of Calif|
|00000290| 6f 72 6e 69 61 0d 23 20 | 6d 61 6b 65 73 20 6e 6f |ornia.# |makes no|
|000002a0| 20 72 65 70 72 65 73 65 | 6e 74 61 74 69 6f 6e 73 | represe|ntations|
|000002b0| 20 61 62 6f 75 74 20 74 | 68 65 20 73 75 69 74 61 | about t|he suita|
|000002c0| 62 69 6c 69 74 79 20 6f | 66 20 74 68 69 73 0d 23 |bility o|f this.#|
|000002d0| 20 73 6f 66 74 77 61 72 | 65 20 66 6f 72 20 61 6e | softwar|e for an|
|000002e0| 79 20 70 75 72 70 6f 73 | 65 2e 20 20 49 74 20 69 |y purpos|e.  It i|
|000002f0| 73 20 70 72 6f 76 69 64 | 65 64 20 22 61 73 20 69 |s provid|ed "as i|
|00000300| 73 22 20 77 69 74 68 6f | 75 74 0d 23 20 65 78 70 |s" witho|ut.# exp|
|00000310| 72 65 73 73 20 6f 72 20 | 69 6d 70 6c 69 65 64 20 |ress or |implied |
|00000320| 77 61 72 72 61 6e 74 79 | 2e 0d 23 0d 0d 23 20 75 |warranty|..#..# u|
|00000330| 6e 6b 6e 6f 77 6e 3a 0d | 23 20 49 6e 76 6f 6b 65 |nknown:.|# Invoke|
|00000340| 64 20 77 68 65 6e 20 61 | 20 54 63 6c 20 63 6f 6d |d when a| Tcl com|
|00000350| 6d 61 6e 64 20 69 73 20 | 69 6e 76 6f 6b 65 64 20 |mand is |invoked |
|00000360| 74 68 61 74 20 64 6f 65 | 73 6e 27 74 20 65 78 69 |that doe|sn't exi|
|00000370| 73 74 20 69 6e 20 74 68 | 65 0d 23 20 69 6e 74 65 |st in th|e.# inte|
|00000380| 72 70 72 65 74 65 72 3a | 0d 23 0d 23 09 31 2e 20 |rpreter:|.#.#.1. |
|00000390| 53 65 65 20 69 66 20 74 | 68 65 20 61 75 74 6f 6c |See if t|he autol|
|000003a0| 6f 61 64 20 66 61 63 69 | 6c 69 74 79 20 63 61 6e |oad faci|lity can|
|000003b0| 20 6c 6f 63 61 74 65 20 | 74 68 65 20 63 6f 6d 6d | locate |the comm|
|000003c0| 61 6e 64 20 69 6e 20 61 | 0d 23 09 20 20 20 54 63 |and in a|.#.   Tc|
|000003d0| 6c 20 73 63 72 69 70 74 | 20 66 69 6c 65 2e 20 20 |l script| file.  |
|000003e0| 49 66 20 73 6f 2c 20 6c | 6f 61 64 20 69 74 20 61 |If so, l|oad it a|
|000003f0| 6e 64 20 65 78 65 63 75 | 74 65 20 69 74 2e 0d 23 |nd execu|te it..#|
|00000400| 09 32 2e 20 53 65 65 20 | 69 66 20 74 68 65 20 63 |.2. See |if the c|
|00000410| 6f 6d 6d 61 6e 64 20 65 | 78 69 73 74 73 20 61 73 |ommand e|xists as|
|00000420| 20 61 6e 20 65 78 65 63 | 75 74 61 62 6c 65 20 55 | an exec|utable U|
|00000430| 4e 49 58 20 70 72 6f 67 | 72 61 6d 2e 0d 23 09 20 |NIX prog|ram..#. |
|00000440| 20 20 49 66 20 73 6f 2c | 20 22 65 78 65 63 22 20 |  If so,| "exec" |
|00000450| 74 68 65 20 63 6f 6d 6d | 61 6e 64 2e 0d 23 09 33 |the comm|and..#.3|
|00000460| 2e 20 49 66 20 74 68 65 | 20 63 6f 6d 6d 61 6e 64 |. If the| command|
|00000470| 20 77 61 73 20 69 6e 76 | 6f 6b 65 64 20 61 74 20 | was inv|oked at |
|00000480| 74 6f 70 2d 6c 65 76 65 | 6c 3a 0d 23 09 20 20 20 |top-leve|l:.#.   |
|00000490| 20 28 61 29 20 73 65 65 | 20 69 66 20 74 68 65 20 | (a) see| if the |
|000004a0| 63 6f 6d 6d 61 6e 64 20 | 72 65 71 75 65 73 74 73 |command |requests|
|000004b0| 20 63 73 68 2d 6c 69 6b | 65 20 68 69 73 74 6f 72 | csh-lik|e histor|
|000004c0| 79 20 73 75 62 73 74 69 | 74 75 74 69 6f 6e 0d 23 |y substi|tution.#|
|000004d0| 09 09 69 6e 20 6f 6e 65 | 20 6f 66 20 74 68 65 20 |..in one| of the |
|000004e0| 63 6f 6d 6d 6f 6e 20 66 | 6f 72 6d 73 20 21 21 2c |common f|orms !!,|
|000004f0| 20 21 3c 6e 75 6d 62 65 | 72 3e 2c 20 6f 72 20 5e | !<numbe|r>, or ^|
|00000500| 6f 6c 64 5e 6e 65 77 2e | 20 20 49 66 0d 23 09 09 |old^new.|  If.#..|
|00000510| 73 6f 2c 20 65 6d 75 6c | 61 74 65 20 63 73 68 27 |so, emul|ate csh'|
|00000520| 73 20 68 69 73 74 6f 72 | 79 20 73 75 62 73 74 69 |s histor|y substi|
|00000530| 74 75 74 69 6f 6e 2e 0d | 23 09 20 20 20 20 28 62 |tution..|#.    (b|
|00000540| 29 20 73 65 65 20 69 66 | 20 74 68 65 20 63 6f 6d |) see if| the com|
|00000550| 6d 61 6e 64 20 69 73 20 | 61 20 75 6e 69 71 75 65 |mand is |a unique|
|00000560| 20 61 62 62 72 65 76 69 | 61 74 69 6f 6e 20 66 6f | abbrevi|ation fo|
|00000570| 72 20 61 6e 6f 74 68 65 | 72 0d 23 09 09 63 6f 6d |r anothe|r.#..com|
|00000580| 6d 61 6e 64 2e 20 20 49 | 66 20 73 6f 2c 20 69 6e |mand.  I|f so, in|
|00000590| 76 6f 6b 65 20 74 68 65 | 20 63 6f 6d 6d 61 6e 64 |voke the| command|
|000005a0| 2e 0d 0d 70 72 6f 63 20 | 75 6e 6b 6e 6f 77 6e 20 |...proc |unknown |
|000005b0| 61 72 67 73 20 7b 0d 20 | 20 20 20 67 6c 6f 62 61 |args {. |   globa|
|000005c0| 6c 20 61 75 74 6f 5f 6e | 6f 6c 6f 61 64 20 65 6e |l auto_n|oload en|
|000005d0| 76 20 75 6e 6b 6e 6f 77 | 6e 5f 70 65 6e 64 69 6e |v unknow|n_pendin|
|000005e0| 67 3b 0d 0d 20 20 20 20 | 73 65 74 20 6e 61 6d 65 |g;..    |set name|
|000005f0| 20 5b 6c 69 6e 64 65 78 | 20 24 61 72 67 73 20 30 | [lindex| $args 0|
|00000600| 5d 0d 0d 20 20 20 20 69 | 66 20 7b 5b 73 74 72 69 |]..    i|f {[stri|
|00000610| 6e 67 20 6c 65 6e 67 74 | 68 20 5b 73 65 74 20 66 |ng lengt|h [set f|
|00000620| 20 5b 66 69 6e 64 43 6d | 64 20 24 6e 61 6d 65 5d | [findCm|d $name]|
|00000630| 5d 5d 7d 20 7b 0d 09 09 | 75 70 6c 65 76 65 6c 20 |]]} {...|uplevel |
|00000640| 23 30 20 73 6f 75 72 63 | 65 20 5b 6c 69 73 74 20 |#0 sourc|e [list |
|00000650| 24 66 5d 0d 09 09 72 65 | 74 75 72 6e 20 5b 75 70 |$f]...re|turn [up|
|00000660| 6c 65 76 65 6c 20 24 61 | 72 67 73 5d 0d 09 7d 20 |level $a|rgs]..} |
|00000670| 65 6c 73 65 20 7b 0d 09 | 09 65 72 72 6f 72 20 22 |else {..|.error "|
|00000680| 4e 6f 20 73 75 63 68 20 | 66 75 6e 63 74 69 6f 6e |No such |function|
|00000690| 3a 20 24 6e 61 6d 65 22 | 0d 09 7d 0d 7d 0d 0d 23 |: $name"|..}.}..#|
|000006a0| 20 61 75 74 6f 5f 6d 6b | 69 6e 64 65 78 3a 0d 23 | auto_mk|index:.#|
|000006b0| 20 52 65 67 65 6e 65 72 | 61 74 65 20 61 20 74 63 | Regener|ate a tc|
|000006c0| 6c 49 6e 64 65 78 20 66 | 69 6c 65 20 66 72 6f 6d |lIndex f|ile from|
|000006d0| 20 54 63 6c 20 73 6f 75 | 72 63 65 20 66 69 6c 65 | Tcl sou|rce file|
|000006e0| 73 2e 20 20 54 61 6b 65 | 73 20 74 77 6f 20 61 72 |s.  Take|s two ar|
|000006f0| 67 75 6d 65 6e 74 73 3a | 0d 23 20 74 68 65 20 6e |guments:|.# the n|
|00000700| 61 6d 65 20 6f 66 20 74 | 68 65 20 64 69 72 65 63 |ame of t|he direc|
|00000710| 74 6f 72 79 20 69 6e 20 | 77 68 69 63 68 20 74 68 |tory in |which th|
|00000720| 65 20 74 63 6c 49 6e 64 | 65 78 20 66 69 6c 65 20 |e tclInd|ex file |
|00000730| 69 73 20 74 6f 20 62 65 | 20 70 6c 61 63 65 64 2c |is to be| placed,|
|00000740| 0d 23 20 61 6e 64 20 61 | 20 67 6c 6f 62 20 70 61 |.# and a| glob pa|
|00000750| 74 74 65 72 6e 20 74 6f | 20 75 73 65 20 69 6e 20 |ttern to| use in |
|00000760| 74 68 61 74 20 64 69 72 | 65 63 74 6f 72 79 20 74 |that dir|ectory t|
|00000770| 6f 20 6c 6f 63 61 74 65 | 20 61 6c 6c 20 6f 66 20 |o locate| all of |
|00000780| 74 68 65 20 72 65 6c 65 | 76 61 6e 74 0d 23 20 66 |the rele|vant.# f|
|00000790| 69 6c 65 73 2e 0d 70 72 | 6f 63 20 61 75 74 6f 5f |iles..pr|oc auto_|
|000007a0| 6d 6b 69 6e 64 65 78 20 | 7b 64 69 72 20 66 69 6c |mkindex |{dir fil|
|000007b0| 65 73 7d 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 61 6c |es} {..g|lobal al|
|000007c0| 70 68 61 4c 69 74 65 0d | 09 0d 20 20 20 20 73 65 |phaLite.|..    se|
|000007d0| 74 20 6f 6c 64 44 69 72 | 20 5b 70 77 64 5d 0d 20 |t oldDir| [pwd]. |
|000007e0| 20 20 20 63 64 20 24 64 | 69 72 0d 20 20 20 20 61 |   cd $d|ir.    a|
|000007f0| 70 70 65 6e 64 20 6c 69 | 6e 65 20 22 23 20 54 63 |ppend li|ne "# Tc|
|00000800| 6c 20 61 75 74 6f 6c 6f | 61 64 20 69 6e 64 65 78 |l autolo|ad index|
|00000810| 20 66 69 6c 65 3a 20 65 | 61 63 68 20 6c 69 6e 65 | file: e|ach line|
|00000820| 20 69 64 65 6e 74 69 66 | 69 65 73 20 61 20 66 69 | identif|ies a fi|
|00000830| 6c 65 20 28 6e 6f 77 72 | 61 70 29 5c 6e 5c 6e 22 |le (nowr|ap)\n\n"|
|00000840| 0d 20 20 20 20 61 70 70 | 65 6e 64 20 6c 69 6e 65 |.    app|end line|
|00000850| 20 22 73 65 74 20 5b 66 | 69 6c 65 20 74 61 69 6c | "set [f|ile tail|
|00000860| 20 5b 73 74 72 69 6e 67 | 20 74 72 69 6d 20 5b 70 | [string| trim [p|
|00000870| 77 64 5d 20 3a 5d 5d 5f | 69 6e 64 65 78 20 5c 7b |wd] :]]_|index \{|
|00000880| 5c 6e 22 0d 0d 09 73 65 | 74 20 63 69 64 20 5b 73 |\n"...se|t cid [s|
|00000890| 63 61 6e 63 6f 6e 74 65 | 78 74 20 63 72 65 61 74 |canconte|xt creat|
|000008a0| 65 5d 0d 09 73 63 61 6e | 6d 61 74 63 68 20 24 63 |e]..scan|match $c|
|000008b0| 69 64 20 7b 5e 70 72 6f | 63 5b 20 09 5d 7d 20 7b |id {^pro|c[ .]} {|
|000008c0| 0d 09 09 69 66 20 7b 5b | 72 65 67 65 78 70 20 7b |...if {[|regexp {|
|000008d0| 5e 70 72 6f 63 5b 20 09 | 5d 2b 28 5b 5e 20 09 5d |^proc[ .|]+([^ .]|
|000008e0| 2a 29 7d 20 24 6d 61 74 | 63 68 49 6e 66 6f 28 6c |*)} $mat|chInfo(l|
|000008f0| 69 6e 65 29 20 6d 61 74 | 63 68 20 70 72 6f 63 4e |ine) mat|ch procN|
|00000900| 61 6d 65 5d 7d 20 7b 0d | 09 09 09 61 70 70 65 6e |ame]} {.|...appen|
|00000910| 64 20 6c 69 6e 65 20 22 | 24 70 72 6f 63 4e 61 6d |d line "|$procNam|
|00000920| 65 20 22 0d 09 09 7d 0d | 09 7d 0d 0d 20 20 20 20 |e "...}.|.}..    |
|00000930| 66 6f 72 65 61 63 68 20 | 66 69 6c 65 20 5b 67 6c |foreach |file [gl|
|00000940| 6f 62 20 24 66 69 6c 65 | 73 5d 20 7b 0d 09 09 69 |ob $file|s] {...i|
|00000950| 66 20 7b 28 24 66 69 6c | 65 20 3d 3d 20 22 6d 65 |f {($fil|e == "me|
|00000960| 6e 75 73 4c 69 74 65 2e | 74 63 6c 22 29 20 26 26 |nusLite.|tcl") &&|
|00000970| 20 21 24 61 6c 70 68 61 | 4c 69 74 65 7d 20 63 6f | !$alpha|Lite} co|
|00000980| 6e 74 69 6e 75 65 3b 0d | 09 09 77 61 74 63 68 43 |ntinue;.|..watchC|
|00000990| 75 72 73 6f 72 0d 09 09 | 73 65 74 20 66 20 22 22 |ursor...|set f ""|
|000009a0| 0d 09 09 61 70 70 65 6e | 64 20 6c 69 6e 65 20 22 |...appen|d line "|
|000009b0| 5c 7b 5b 66 69 6c 65 20 | 74 61 69 6c 20 24 66 69 |\{[file |tail $fi|
|000009c0| 6c 65 5d 20 22 0d 09 09 | 6d 65 73 73 61 67 65 20 |le] "...|message |
|000009d0| 5b 66 69 6c 65 20 74 61 | 69 6c 20 24 66 69 6c 65 |[file ta|il $file|
|000009e0| 5d 0d 09 09 73 65 74 20 | 66 69 64 20 5b 6f 70 65 |]...set |fid [ope|
|000009f0| 6e 20 24 66 69 6c 65 5d | 0d 09 09 73 63 61 6e 66 |n $file]|...scanf|
|00000a00| 69 6c 65 20 24 63 69 64 | 20 24 66 69 64 0d 09 09 |ile $cid| $fid...|
|00000a10| 63 6c 6f 73 65 20 24 66 | 69 64 0d 09 09 61 70 70 |close $f|id...app|
|00000a20| 65 6e 64 20 6c 69 6e 65 | 20 22 5c 7d 5c 6e 22 0d |end line| "\}\n".|
|00000a30| 09 7d 0d 09 0d 09 73 63 | 61 6e 63 6f 6e 74 65 78 |.}....sc|ancontex|
|00000a40| 74 20 64 65 6c 65 74 65 | 20 24 63 69 64 0d 0d 20 |t delete| $cid.. |
|00000a50| 20 20 20 61 70 70 65 6e | 64 20 6c 69 6e 65 20 22 |   appen|d line "|
|00000a60| 5c 7d 5c 6e 22 0d 20 20 | 20 20 73 65 74 20 66 20 |\}\n".  |  set f |
|00000a70| 5b 6f 70 65 6e 20 74 63 | 6c 49 6e 64 65 78 78 20 |[open tc|lIndexx |
|00000a80| 77 5d 0d 20 20 20 20 70 | 75 74 73 20 24 66 20 24 |w].    p|uts $f $|
|00000a90| 6c 69 6e 65 20 6e 6f 6e | 65 77 6c 69 6e 65 0d 20 |line non|ewline. |
|00000aa0| 20 20 20 63 6c 6f 73 65 | 20 24 66 0d 20 20 20 20 |   close| $f.    |
|00000ab0| 63 64 20 24 6f 6c 64 44 | 69 72 0d 0d 20 20 20 20 |cd $oldD|ir..    |
|00000ac0| 66 6f 72 65 61 63 68 20 | 69 20 5b 69 6e 66 6f 20 |foreach |i [info |
|00000ad0| 76 61 72 73 20 7b 2a 5f | 69 6e 64 65 78 7d 5d 20 |vars {*_|index}] |
|00000ae0| 7b 0d 20 20 20 20 09 67 | 6c 6f 62 61 6c 20 24 69 |{.    .g|lobal $i|
|00000af0| 0d 20 20 20 20 09 75 6e | 73 65 74 20 24 69 0d 20 |.    .un|set $i. |
|00000b00| 20 20 20 7d 0d 7d 0d 0d | 70 72 6f 63 20 66 69 6e |   }.}..|proc fin|
|00000b10| 64 43 6d 64 20 63 6d 64 | 20 7b 0d 09 67 6c 6f 62 |dCmd cmd| {..glob|
|00000b20| 61 6c 20 67 6c 6f 62 61 | 6c 20 61 75 74 6f 5f 70 |al globa|l auto_p|
|00000b30| 61 74 68 0d 09 0d 09 66 | 6f 72 65 61 63 68 20 70 |ath....f|oreach p|
|00000b40| 61 74 68 20 24 61 75 74 | 6f 5f 70 61 74 68 20 7b |ath $aut|o_path {|
|00000b50| 0d 09 09 69 66 20 7b 21 | 5b 66 69 6c 65 20 65 78 |...if {!|[file ex|
|00000b60| 69 73 74 73 20 24 70 61 | 74 68 5d 7d 20 63 6f 6e |ists $pa|th]} con|
|00000b70| 74 69 6e 75 65 0d 09 09 | 73 65 74 20 69 6e 64 65 |tinue...|set inde|
|00000b80| 78 20 22 5b 66 69 6c 65 | 20 74 61 69 6c 20 24 70 |x "[file| tail $p|
|00000b90| 61 74 68 5d 5f 69 6e 64 | 65 78 22 0d 09 09 67 6c |ath]_ind|ex"...gl|
|00000ba0| 6f 62 61 6c 20 24 69 6e | 64 65 78 0d 09 09 69 66 |obal $in|dex...if|
|00000bb0| 20 7b 21 5b 69 6e 66 6f | 20 65 78 69 73 74 73 20 | {![info| exists |
|00000bc0| 24 69 6e 64 65 78 5d 7d | 20 7b 0d 09 09 09 75 70 |$index]}| {....up|
|00000bd0| 6c 65 76 65 6c 20 23 30 | 20 73 6f 75 72 63 65 20 |level #0| source |
|00000be0| 5b 6c 69 73 74 20 22 24 | 70 61 74 68 3a 74 63 6c |[list "$|path:tcl|
|00000bf0| 49 6e 64 65 78 78 22 5d | 0d 09 09 7d 0d 09 09 69 |Indexx"]|...}...i|
|00000c00| 66 20 7b 5b 72 65 67 65 | 78 70 20 22 5c 7b 28 5c |f {[rege|xp "\{(\|
|00000c10| 5c 77 2b 2e 74 63 6c 29 | 5c 5b 5e 5c 7d 5c 5d 2a |\w+.tcl)|\[^\}\]*|
|00000c20| 20 5b 71 75 6f 74 65 45 | 78 70 72 20 24 63 6d 64 | [quoteE|xpr $cmd|
|00000c30| 5d 20 22 20 5b 73 65 74 | 20 24 69 6e 64 65 78 5d |] " [set| $index]|
|00000c40| 20 64 75 6d 6d 79 20 66 | 69 6c 65 5d 7d 20 7b 0d | dummy f|ile]} {.|
|00000c50| 09 09 09 72 65 74 75 72 | 6e 20 22 24 70 61 74 68 |...retur|n "$path|
|00000c60| 3a 24 66 69 6c 65 22 0d | 09 09 7d 0d 09 7d 0d 7d |:$file".|..}..}.}|
|00000c70| 0d 0d 0d 23 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |...#====|========|
|00000c80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000ca0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000cb0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000cc0| 3d 3d 3d 3d 0d 23 20 57 | 6f 6e 64 65 72 66 75 6c |====.# W|onderful|
|00000cd0| 20 70 72 6f 63 73 20 66 | 72 6f 6d 20 56 69 6e 63 | procs f|rom Vinc|
|00000ce0| 65 20 44 61 72 6c 65 79 | 20 28 76 69 6e 63 65 40 |e Darley| (vince@|
|00000cf0| 64 61 73 2e 68 61 72 76 | 61 72 64 2e 65 64 75 29 |das.harv|ard.edu)|
|00000d00| 2e 0d 23 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..#=====|========|
|00000d10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000d20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000d30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000d40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000d50| 3d 3d 0d 0d 70 72 6f 63 | 20 74 72 61 63 65 54 63 |==..proc| traceTc|
|00000d60| 6c 50 72 6f 63 20 7b 7d | 20 7b 0d 09 67 6c 6f 62 |lProc {}| {..glob|
|00000d70| 61 6c 20 74 63 6c 4d 65 | 6e 75 0d 09 69 66 20 7b |al tclMe|nu..if {|
|00000d80| 5b 6c 6c 65 6e 67 74 68 | 20 5b 74 72 61 63 65 46 |[llength| [traceF|
|00000d90| 75 6e 63 20 73 74 61 74 | 75 73 5d 5d 3e 32 7d 20 |unc stat|us]]>2} |
|00000da0| 7b 0d 09 09 63 61 74 63 | 68 20 7b 6d 61 72 6b 4d |{...catc|h {markM|
|00000db0| 65 6e 75 49 74 65 6d 20 | 24 74 63 6c 4d 65 6e 75 |enuItem |$tclMenu|
|00000dc0| 20 7b 74 72 61 63 65 54 | 63 6c 50 72 6f 63 c9 7d | {traceT|clProc.}|
|00000dd0| 20 6f 66 66 7d 0d 09 09 | 63 61 74 63 68 20 7b 65 | off}...|catch {e|
|00000de0| 6e 61 62 6c 65 4d 65 6e | 75 49 74 65 6d 20 24 74 |nableMen|uItem $t|
|00000df0| 63 6c 4d 65 6e 75 20 64 | 75 6d 70 54 72 61 63 65 |clMenu d|umpTrace|
|00000e00| 73 20 6f 66 66 7d 0d 09 | 09 69 66 20 7b 5b 73 74 |s off}..|.if {[st|
|00000e10| 72 69 6e 67 20 6c 65 6e | 67 74 68 20 5b 73 65 74 |ring len|gth [set|
|00000e20| 20 64 61 74 61 20 5b 74 | 72 61 63 65 44 75 6d 70 | data [t|raceDump|
|00000e30| 5d 5d 5d 7d 20 7b 0d 09 | 09 09 69 66 20 7b 5b 61 |]]]} {..|..if {[a|
|00000e40| 73 6b 79 65 73 6e 6f 20 | 22 44 75 6d 70 20 74 72 |skyesno |"Dump tr|
|00000e50| 61 63 65 73 3f 22 5d 20 | 3d 3d 20 22 79 65 73 22 |aces?"] |== "yes"|
|00000e60| 7d 20 7b 0d 09 09 09 09 | 64 75 6d 70 54 72 61 63 |} {.....|dumpTrac|
|00000e70| 65 73 20 5b 73 74 72 69 | 6e 67 20 74 72 69 6d 72 |es [stri|ng trimr|
|00000e80| 69 67 68 74 20 5b 6c 69 | 6e 64 65 78 20 5b 74 72 |ight [li|ndex [tr|
|00000e90| 61 63 65 46 75 6e 63 20 | 73 74 61 74 75 73 5d 20 |aceFunc |status] |
|00000ea0| 33 5d 20 7b 2c 7d 5d 20 | 24 64 61 74 61 0d 09 09 |3] {,}] |$data...|
|00000eb0| 09 09 73 65 74 57 69 6e | 49 6e 66 6f 20 64 69 72 |..setWin|Info dir|
|00000ec0| 74 79 20 30 0d 09 09 09 | 7d 0d 09 09 7d 0d 09 09 |ty 0....|}...}...|
|00000ed0| 74 72 61 63 65 46 75 6e | 63 20 6f 66 66 0d 09 09 |traceFun|c off...|
|00000ee0| 6d 65 73 73 61 67 65 20 | 22 54 72 61 63 69 6e 67 |message |"Tracing|
|00000ef0| 20 6f 66 66 2e 22 0d 09 | 09 72 65 74 75 72 6e 0d | off."..|.return.|
|00000f00| 09 7d 0d 09 69 66 20 7b | 5b 6c 6c 65 6e 67 74 68 |.}..if {|[llength|
|00000f10| 20 5b 77 69 6e 4e 61 6d | 65 73 5d 5d 20 26 26 20 | [winNam|es]] && |
|00000f20| 5b 73 74 72 69 6e 67 20 | 6c 65 6e 67 74 68 20 5b |[string |length [|
|00000f30| 73 65 74 20 73 65 6c 20 | 5b 67 65 74 53 65 6c 65 |set sel |[getSele|
|00000f40| 63 74 5d 5d 5d 7d 20 7b | 0d 09 09 73 65 74 20 66 |ct]]]} {|...set f|
|00000f50| 75 6e 63 20 5b 6c 69 73 | 74 70 69 63 6b 20 2d 4c |unc [lis|tpick -L|
|00000f60| 20 24 73 65 6c 20 2d 70 | 20 7b 46 75 6e 63 20 4e | $sel -p| {Func N|
|00000f70| 61 6d 65 3a 7d 20 5b 6c | 73 6f 72 74 20 2d 69 67 |ame:} [l|sort -ig|
|00000f80| 6e 6f 72 65 20 5b 69 6e | 66 6f 20 70 72 6f 63 73 |nore [in|fo procs|
|00000f90| 5d 5d 5d 0d 09 7d 20 65 | 6c 73 65 20 7b 0d 09 09 |]]]..} e|lse {...|
|00000fa0| 73 65 74 20 66 75 6e 63 | 20 5b 6c 69 73 74 70 69 |set func| [listpi|
|00000fb0| 63 6b 20 2d 70 20 7b 46 | 75 6e 63 20 4e 61 6d 65 |ck -p {F|unc Name|
|00000fc0| 3a 7d 20 5b 6c 73 6f 72 | 74 20 2d 69 67 6e 6f 72 |:} [lsor|t -ignor|
|00000fd0| 65 20 5b 69 6e 66 6f 20 | 70 72 6f 63 73 5d 5d 5d |e [info |procs]]]|
|00000fe0| 0d 09 7d 0d 09 69 66 20 | 7b 21 5b 73 74 72 69 6e |..}..if |{![strin|
|00000ff0| 67 20 6c 65 6e 67 74 68 | 20 24 66 75 6e 63 5d 7d |g length| $func]}|
|00001000| 20 72 65 74 75 72 6e 0d | 09 74 72 61 63 65 46 75 | return.|.traceFu|
|00001010| 6e 63 20 6f 6e 20 24 66 | 75 6e 63 20 22 22 0d 09 |nc on $f|unc ""..|
|00001020| 63 61 74 63 68 20 7b 6d | 61 72 6b 4d 65 6e 75 49 |catch {m|arkMenuI|
|00001030| 74 65 6d 20 24 74 63 6c | 4d 65 6e 75 20 7b 74 72 |tem $tcl|Menu {tr|
|00001040| 61 63 65 54 63 6c 50 72 | 6f 63 c9 7d 20 6f 6e 7d |aceTclPr|oc.} on}|
|00001050| 0d 09 63 61 74 63 68 20 | 7b 65 6e 61 62 6c 65 4d |..catch |{enableM|
|00001060| 65 6e 75 49 74 65 6d 20 | 24 74 63 6c 4d 65 6e 75 |enuItem |$tclMenu|
|00001070| 20 64 75 6d 70 54 72 61 | 63 65 73 20 6f 6e 7d 0d | dumpTra|ces on}.|
|00001080| 09 6d 65 73 73 61 67 65 | 20 22 54 72 61 63 69 6e |.message| "Tracin|
|00001090| 67 20 27 24 66 75 6e 63 | 27 c9 22 0d 7d 0d 0d 0d |g '$func|'.".}...|
|000010a0| 70 72 6f 63 20 64 75 6d | 70 54 72 61 63 65 73 20 |proc dum|pTraces |
|000010b0| 7b 7b 6e 61 6d 65 20 22 | 22 7d 20 7b 64 61 74 61 |{{name "|"} {data|
|000010c0| 20 22 22 7d 7d 20 7b 0d | 09 69 66 20 7b 21 5b 73 | ""}} {.|.if {![s|
|000010d0| 74 72 69 6e 67 20 6c 65 | 6e 67 74 68 20 24 6e 61 |tring le|ngth $na|
|000010e0| 6d 65 5d 7d 20 7b 0d 09 | 09 73 65 74 20 6e 61 6d |me]} {..|.set nam|
|000010f0| 65 20 5b 73 74 72 69 6e | 67 20 74 72 69 6d 72 69 |e [strin|g trimri|
|00001100| 67 68 74 20 5b 6c 69 6e | 64 65 78 20 5b 74 72 61 |ght [lin|dex [tra|
|00001110| 63 65 46 75 6e 63 20 73 | 74 61 74 75 73 5d 20 33 |ceFunc s|tatus] 3|
|00001120| 5d 20 7b 2c 7d 5d 0d 09 | 7d 0d 09 69 66 20 7b 21 |] {,}]..|}..if {!|
|00001130| 5b 73 74 72 69 6e 67 20 | 6c 65 6e 67 74 68 20 24 |[string |length $|
|00001140| 64 61 74 61 5d 7d 20 7b | 0d 09 09 73 65 74 20 64 |data]} {|...set d|
|00001150| 61 74 61 20 5b 74 72 61 | 63 65 44 75 6d 70 5d 0d |ata [tra|ceDump].|
|00001160| 09 7d 0d 09 0d 09 69 66 | 20 7b 21 5b 73 74 72 69 |.}....if| {![stri|
|00001170| 6e 67 20 6c 65 6e 67 74 | 68 20 24 64 61 74 61 5d |ng lengt|h $data]|
|00001180| 7d 20 7b 0d 09 09 6d 65 | 73 73 61 67 65 20 22 54 |} {...me|ssage "T|
|00001190| 72 61 63 65 20 62 75 66 | 66 65 72 20 65 6d 70 74 |race buf|fer empt|
|000011a0| 79 22 0d 09 7d 20 65 6c | 73 65 20 7b 0d 09 09 6e |y"..} el|se {...n|
|000011b0| 65 77 20 2d 6e 20 22 2a | 20 54 72 61 63 65 20 27 |ew -n "*| Trace '|
|000011c0| 24 6e 61 6d 65 27 20 2a | 22 0d 09 09 69 6e 73 65 |$name' *|"...inse|
|000011d0| 72 74 54 65 78 74 20 24 | 64 61 74 61 0d 09 09 73 |rtText $|data...s|
|000011e0| 65 74 57 69 6e 49 6e 66 | 6f 20 64 69 72 74 79 20 |etWinInf|o dirty |
|000011f0| 30 0d 09 09 67 6f 74 6f | 20 30 20 0d 09 7d 0d 7d |0...goto| 0 ..}.}|
|00001200| 0d 0d 0d 70 72 6f 63 20 | 72 65 62 75 69 6c 64 54 |...proc |rebuildT|
|00001210| 63 6c 49 6e 64 69 63 65 | 73 20 7b 7d 20 7b 0d 09 |clIndice|s {} {..|
|00001220| 67 6c 6f 62 61 6c 20 61 | 75 74 6f 5f 70 61 74 68 |global a|uto_path|
|00001230| 0d 09 73 65 74 20 64 20 | 5b 70 77 64 5d 0d 09 23 |..set d |[pwd]..#|
|00001240| 20 64 6f 20 77 65 20 72 | 65 61 6c 6c 79 20 6e 65 | do we r|eally ne|
|00001250| 65 64 20 74 68 65 20 6e | 65 78 74 20 6c 69 6e 65 |ed the n|ext line|
|00001260| 3f 20 41 6c 70 68 61 27 | 73 20 6f 72 69 67 69 6e |? Alpha'|s origin|
|00001270| 61 6c 20 75 73 65 73 20 | 69 74 2e 0d 09 63 64 0d |al uses |it...cd.|
|00001280| 09 66 6f 72 65 61 63 68 | 20 64 69 72 20 24 61 75 |.foreach| dir $au|
|00001290| 74 6f 5f 70 61 74 68 20 | 7b 0d 09 09 23 20 69 66 |to_path |{...# if|
|000012a0| 20 64 69 72 65 63 74 6f | 72 79 20 65 78 69 73 74 | directo|ry exist|
|000012b0| 73 0d 09 09 69 66 20 7b | 20 21 5b 63 61 74 63 68 |s...if {| ![catch|
|000012c0| 20 7b 20 63 64 20 24 64 | 69 72 20 7d 20 5d 20 7d | { cd $d|ir } ] }|
|000012d0| 20 7b 0d 09 09 09 23 20 | 69 66 20 74 68 65 72 65 | {....# |if there|
|000012e0| 20 61 72 65 20 61 6e 79 | 20 66 69 6c 65 73 0d 09 | are any| files..|
|000012f0| 09 09 69 66 20 7b 20 21 | 5b 63 61 74 63 68 20 7b |..if { !|[catch {|
|00001300| 20 67 6c 6f 62 20 2a 2e | 2a 74 63 6c 20 7d 20 5d | glob *.|*tcl } ]|
|00001310| 20 7d 20 7b 0d 09 09 09 | 09 6d 65 73 73 61 67 65 | } {....|.message|
|00001320| 20 22 42 75 69 6c 64 69 | 6e 67 20 5b 66 69 6c 65 | "Buildi|ng [file|
|00001330| 20 74 61 69 6c 20 24 64 | 69 72 5d 20 69 6e 64 65 | tail $d|ir] inde|
|00001340| 78 c9 22 0d 09 09 09 09 | 0d 09 09 09 09 23 20 69 |x.".....|.....# i|
|00001350| 66 20 74 68 65 20 27 5b | 69 6e 63 72 20 74 63 6c |f the '[|incr tcl|
|00001360| 5d 27 20 76 65 72 73 69 | 6f 6e 20 65 78 69 73 74 |]' versi|on exist|
|00001370| 73 2c 20 75 73 65 20 74 | 68 61 74 0d 09 09 09 09 |s, use t|hat.....|
|00001380| 23 20 75 73 65 20 27 63 | 61 74 63 68 27 20 61 6c |# use 'c|atch' al|
|00001390| 73 6f 20 69 6e 20 63 61 | 73 65 20 64 69 72 65 63 |so in ca|se direc|
|000013a0| 74 6f 72 79 20 69 73 20 | 77 72 69 74 65 2d 70 72 |tory is |write-pr|
|000013b0| 6f 74 65 63 74 65 64 0d | 09 09 09 09 69 66 20 5b |otected.|....if [|
|000013c0| 63 61 74 63 68 20 7b 20 | 69 74 63 6c 5f 6d 6b 69 |catch { |itcl_mki|
|000013d0| 6e 64 65 78 20 3a 20 2a | 2e 2a 74 63 6c 20 7d 20 |ndex : *|.*tcl } |
|000013e0| 5d 20 7b 0d 09 09 09 09 | 09 23 20 65 6c 73 65 20 |] {.....|.# else |
|000013f0| 74 72 79 20 74 68 65 20 | 6e 6f 72 6d 61 6c 20 6f |try the |normal o|
|00001400| 6e 65 0d 09 09 09 09 09 | 63 61 74 63 68 20 7b 20 |ne......|catch { |
|00001410| 61 75 74 6f 5f 6d 6b 69 | 6e 64 65 78 20 3a 20 2a |auto_mki|ndex : *|
|00001420| 2e 2a 74 63 6c 20 7d 0d | 09 09 09 09 7d 0d 09 09 |.*tcl }.|....}...|
|00001430| 09 7d 0d 09 09 7d 0d 09 | 7d 0d 09 23 20 72 65 64 |.}...}..|}..# red|
|00001440| 6f 20 74 68 65 20 61 75 | 74 6f 2d 6d 6f 64 65 2d |o the au|to-mode-|
|00001450| 66 69 6c 65 20 63 6f 6e | 6e 65 63 74 69 6f 6e 73 |file con|nections|
|00001460| 20 28 73 65 65 20 22 73 | 6d 61 72 74 65 72 53 6f | (see "s|marterSo|
|00001470| 75 72 63 65 2e 74 63 6c | 22 29 0d 09 6d 65 73 73 |urce.tcl|")..mess|
|00001480| 61 67 65 20 22 42 75 69 | 6c 64 69 6e 67 20 74 68 |age "Bui|lding th|
|00001490| 65 20 6d 6f 64 65 2d 66 | 69 6c 65 20 64 65 70 65 |e mode-f|ile depe|
|000014a0| 6e 64 65 6e 63 79 20 61 | 72 72 61 79 22 0d 09 63 |ndency a|rray"..c|
|000014b0| 61 74 63 68 20 7b 61 75 | 74 6f 4d 6f 64 65 46 69 |atch {au|toModeFi|
|000014c0| 6c 65 73 7d 0d 09 6d 65 | 73 73 61 67 65 20 22 22 |les}..me|ssage ""|
|000014d0| 0d 09 63 64 20 24 64 0d | 7d 0d 0d 00 00 00 00 00 |..cd $d.|}.......|
|000014e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000014f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001500| 00 00 01 00 00 00 01 cc | 00 00 00 cc 00 00 00 42 |........|.......B|
|00001510| 69 63 61 74 65 64 20 66 | 72 6f 6d 20 22 70 6f 64 |icated f|rom "pod|
|00001520| 2e 74 63 6c 22 2c 20 73 | 6f 20 74 68 61 74 20 74 |.tcl", s|o that t|
|00001530| 0b 6c 69 62 72 61 72 79 | 2e 74 63 6c 02 00 00 00 |.library|.tcl....|
|00001540| 54 45 58 54 41 4c 46 41 | 00 00 63 c0 63 c0 00 00 |TEXTALFA|..c.c...|
|00001550| 00 00 54 45 58 54 41 4c | 46 41 00 00 63 c0 63 c0 |..TEXTAL|FA..c.c.|
|00001560| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001570| 00 00 a9 a2 6a 67 00 00 | 14 5b 00 00 02 0e 64 6f |....jg..|.[....do|
|00001580| 63 73 0d 23 0d 70 72 6f | 63 20 70 6f 64 46 69 6e |cs.#.pro|c podFin|
|00001590| 64 4d 61 72 6b 20 7b 6d | 61 72 6b 7d 20 7b 0d 09 |dMark {m|ark} {..|
|000015a0| 67 6c 6f 62 61 6c 20 70 | 6f 64 4d 61 72 6b 49 6e |global p|odMarkIn|
|000015b0| 64 65 6e 74 0d 09 73 65 | 74 20 6d 61 72 6b 30 20 |dent..se|t mark0 |
|000015c0| 24 6d 61 72 6b 0d 09 73 | 65 74 20 6d 61 72 6b 73 |$mark..s|et marks|
|000015d0| 20 5b 67 65 74 4e 61 6d | 65 64 4d 61 72 6b 73 20 | [getNam|edMarks |
|000015e0| 2d 6e 5d 0d 09 72 65 67 | 73 75 62 20 2d 61 6c 6c |-n]..reg|sub -all|
|000015f0| 20 7b 5b 5c 2f 5c 28 5c | 29 3c 3e 5e 5d 7d 20 24 | {[\/\(\|)<>^]} $|
|00001600| 00 00 00 7c 00 06 00 00 | 07 16 00 00 07 16 0d 61 |...|....|.......a|
|00001610| 75 74 6f 5f 6d 6b 69 6e | 64 65 78 00 00 00 10 20 |uto_mkin|dex.... |
|00001620| 00 00 10 20 0b 64 75 6d | 70 54 72 61 63 65 73 00 |... .dum|pTraces.|
|00001630| 00 00 0a 88 00 00 0a 88 | 07 66 69 6e 64 43 6d 64 |........|.findCmd|
|00001640| 00 00 11 83 00 00 11 83 | 11 72 65 62 75 69 6c 64 |........|.rebuild|
|00001650| 54 63 6c 49 6e 64 69 63 | 65 73 00 00 0c d4 00 00 |TclIndic|es......|
|00001660| 0c d4 0d 74 72 61 63 65 | 54 63 6c 50 72 6f 63 00 |...trace|TclProc.|
|00001670| 00 00 05 23 00 00 05 23 | 07 75 6e 6b 6e 6f 77 6e |...#...#|.unknown|
|00001680| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 b6 2e 30 |...H..Mo|naco...0|
|00001690| 00 00 00 00 01 ae 73 94 | 01 d5 7a b0 24 00 04 22 |......s.|..z.$.."|
|000016a0| 02 0f eb c0 00 01 00 04 | 00 04 00 28 00 02 02 5b |........|...(...[|
|000016b0| 02 00 00 28 00 02 02 5b | 02 00 ae 39 5b f4 00 00 |...(...[|...9[...|
|000016c0| 0e 50 00 00 0e 50 00 00 | 0c d3 01 00 00 00 01 00 |.P...P..|........|
|000016d0| 00 00 01 cc 00 00 00 cc | 00 00 00 42 01 ac da c8 |........|...B....|
|000016e0| 1a 14 00 00 00 1c 00 3e | 00 00 4d 50 53 52 00 01 |.......>|..MPSR..|
|000016f0| 00 0a 03 ef 00 00 00 00 | 00 00 01 b6 2c c8 03 ed |........|....,...|
|00001700| ff ff 00 00 00 80 01 b6 | 2c 80 03 74 61 62 00 00 |........|,..tab..|
|00001710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+